-- card: 2066 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 3528
-- name: saved
----- HyperTalk script -----
on closeCard
  if visible of cd fld id 5 then
    popUp "About2"
  end if
  set scroll of cd fld id 1 to 0
end closeCard


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=0 top=20 right=319 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: saved


-- part 5 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=45 top=24 right=319 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: about2
----- HyperTalk script -----
on mouseUp
  popUp "About2"
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=14 top=320 right=341 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  popUp "About2"
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=95 top=321 right=340 bottom=183
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Words
----- HyperTalk script -----
on mouseUp
  goEdit
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=207 top=321 right=340 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Haiku
----- HyperTalk script -----
on mouseUp
  goHaiku
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=323 top=321 right=340 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Save to Text File
----- HyperTalk script -----
on mouseUp
  put "SAVING TEXT"
  open file "Haikus"
  write cd fld id 1 to file "Haikus"
  close file "Haikus"
  put empty
  hide msg
end mouseUp


-- part contents for card part 1
----- text -----

 serious pensive stack 
transcends formidable stew
 sensational!

 autumn luscious night 
illuminates hidden universe.
 solitude.

 so huddled ocean
 O blue motion
 seething baroque ineffable.

 sometimes luscious note
 dances void universe
 unreal variable.

 secret luscious point
 sings summer cathedral
 O descending center.



-- part contents for card part 5
----- text -----

HAIKU MASTER usually formats poems in a manner approximately, but not exactly like the traditional Japanese haiku structure of 3 lines of 5, 7 and 5 syllables. Most English translations of Japanese haikus are similarly "approximate" in their structure. 

Occasionally, overcome by an over-powering inspiration, HAIKU MASTER creates a 2 or 4 line poem. You can reformat any "over-inspired" poems that you choose to save in this field by adding or deleting returns.

Poems are saved into a text file that is named “Haikus” and is placed into the same folder as HyperCard. You can then open and print this file with your word processor, text DA, desktop publishing program, etc.

Save your own poems here before you pass this stack on!